home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / nikole.dir / 00001_Script_movie script next >
Text File  |  1999-03-01  |  996b  |  47 lines
  1. global fileSep
  2.  
  3. on startMovie
  4.   --  set the exitLock to TRUE
  5.   initMovie
  6.   repeat with i = 1 to 6
  7.     if soundBusy(i) then sound stop i
  8.   end repeat
  9. end startMovie
  10.  
  11. on initMovie
  12.   if the machineType = 256 then
  13.     put "\" into fileSep
  14.   else  
  15.     put ":" into fileSep
  16.   end if
  17.   set the keyDownScript to "keyCheck"
  18.   
  19. end initMovie
  20.  
  21. on keyCheck 
  22.   setVolume()
  23. end keyCheck
  24.  
  25.  
  26. on setVolume  
  27.   set inKey = the key
  28.   
  29.   if inKey = "q" OR inKey = "Q" then go to frame "quitArtRight" of movie "intro"
  30.   
  31.   if charToNum(inKey) >= charToNum ("0") and charToNum (inKey) <= charToNum ("9") then
  32.     set newVol = integer (the key)
  33.     if the soundLevel <> newVol then set the soundLevel = newVol
  34.   end if  
  35. end setVolume
  36.  
  37. --on idle
  38. --  checkExit  
  39. --end idle
  40. --
  41. --on checkExit
  42. --  if the commandDown and ¼
  43. --   (the key = "." or the key = "q") and ¼
  44. --   the exitLock = TRUE then 
  45. --    go to frame "quitARTWrong" of movie "intro"
  46. --  end if  
  47. --end checkExit